/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / hm--html-menus / adapt.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 30 33 3a 34 | 36 20 31 39 39 35 0a 3b | 14:03:4|6 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 68 6d | 2d 2d 68 74 6d 6c 2d 6d |/lisp/hm|--html-m|
|00000090| 65 6e 75 73 2f 61 64 61 | 70 74 2e 65 6c 0a 3b 3b |enus/ada|pt.el.;;|
|000000a0| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|000000b0| 31 39 2e 31 33 20 58 45 | 6d 61 63 73 20 4c 75 63 |19.13 XE|macs Luc|
|000000c0| 69 64 2e 0a 3b 3b 3b 20 | 62 79 74 65 63 6f 6d 70 |id..;;; |bytecomp|
|000000d0| 20 76 65 72 73 69 6f 6e | 20 32 2e 32 35 3b 20 31 | version| 2.25; 1|
|000000e0| 2d 53 65 70 2d 39 34 2e | 0a 3b 3b 3b 20 6f 70 74 |-Sep-94.|.;;; opt|
|000000f0| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|00000100| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|00000110| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|00000120| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000130| 6e 20 45 6d 61 63 73 20 | 31 38 2e 0a 0a 28 69 66 |n Emacs |18...(if|
|00000140| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000150| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000160| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000170| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|00000180| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|00000190| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |)..     |(string-|
|000001a0| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|000001b0| 69 6f 6e 20 22 31 39 22 | 29 29 29 0a 20 20 20 20 |ion "19"|))).    |
|000001c0| 28 65 72 72 6f 72 20 22 | 54 68 69 73 20 66 69 6c |(error "|This fil|
|000001d0| 65 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |e was co|mpiled f|
|000001e0| 6f 72 20 45 6d 61 63 73 | 20 31 39 2e 22 29 29 0a |or Emacs| 19.")).|
|000001f0| 0a 28 66 73 65 74 20 27 | 61 64 61 70 74 2d 78 65 |.(fset '|adapt-xe|
|00000200| 6d 61 63 73 70 20 23 5b | 6e 69 6c 20 22 c0 c1 5c |macsp #[|nil "..\|
|00000210| 6e 5c 22 ae 84 c0 c3 5c | 6e 5c 22 87 22 20 5b 73 |n\"....\|n\"." [s|
|00000220| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 4c 75 63 |tring-ma|tch "Luc|
|00000230| 69 64 22 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |id" emac|s-versio|
|00000240| 6e 20 22 58 45 6d 61 63 | 73 22 5d 20 33 20 22 5c |n "XEmac|s"] 3 "\|
|00000250| 0a 52 65 74 75 72 6e 73 | 20 6e 6f 6e 20 6e 69 6c |.Returns| non nil|
|00000260| 20 69 66 20 74 68 65 20 | 65 64 69 74 6f 72 20 69 | if the |editor i|
|00000270| 73 20 74 68 65 20 58 45 | 6d 61 63 73 2e 22 5d 29 |s the XE|macs."])|
|00000280| 0a 28 66 73 65 74 20 27 | 61 64 61 70 74 2d 6c 65 |.(fset '|adapt-le|
|00000290| 6d 61 63 73 70 20 23 5b | 6e 69 6c 20 22 c0 c1 5c |macsp #[|nil "..\|
|000002a0| 6e 5c 22 ae 84 c0 c3 5c | 6e 5c 22 87 22 20 5b 73 |n\"....\|n\"." [s|
|000002b0| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 4c 75 63 |tring-ma|tch "Luc|
|000002c0| 69 64 22 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |id" emac|s-versio|
|000002d0| 6e 20 22 58 45 6d 61 63 | 73 22 5d 20 33 20 22 5c |n "XEmac|s"] 3 "\|
|000002e0| 0a 52 65 74 75 72 6e 73 | 20 6e 6f 6e 20 6e 69 6c |.Returns| non nil|
|000002f0| 20 69 66 20 74 68 65 20 | 65 64 69 74 6f 72 20 69 | if the |editor i|
|00000300| 73 20 74 68 65 20 58 45 | 6d 61 63 73 2e 0a 4f 6c |s the XE|macs..Ol|
|00000310| 64 20 76 65 72 73 69 6f | 6e 2c 20 75 73 65 20 60 |d versio|n, use `|
|00000320| 61 64 61 70 74 2d 78 65 | 6d 61 63 73 70 27 20 69 |adapt-xe|macsp' i|
|00000330| 6e 73 74 65 61 64 20 6f | 66 20 74 68 69 73 2e 22 |nstead o|f this."|
|00000340| 5d 29 0a 28 66 73 65 74 | 20 27 61 64 61 70 74 2d |]).(fset| 'adapt-|
|00000350| 65 6d 61 63 73 31 39 70 | 20 23 5b 6e 69 6c 20 22 |emacs19p| #[nil "|
|00000360| c0 20 3f ad 86 09 c2 c3 | 4f c4 98 87 22 20 5b 61 |. ?.....|O..." [a|
|00000370| 64 61 70 74 2d 78 65 6d | 61 63 73 70 20 65 6d 61 |dapt-xem|acsp ema|
|00000380| 63 73 2d 76 65 72 73 69 | 6f 6e 20 30 20 32 20 22 |cs-versi|on 0 2 "|
|00000390| 31 39 22 5d 20 33 20 22 | 5c 0a 52 65 74 75 72 6e |19"] 3 "|\.Return|
|000003a0| 73 20 6e 6f 6e 20 6e 69 | 6c 20 69 66 20 74 68 65 |s non ni|l if the|
|000003b0| 20 65 64 69 74 6f 72 20 | 69 73 20 74 68 65 20 47 | editor |is the G|
|000003c0| 4e 55 20 45 6d 61 63 73 | 20 31 39 2e 22 5d 29 0a |NU Emacs| 19."]).|
|000003d0| 28 66 73 65 74 20 27 61 | 64 61 70 74 2d 72 65 67 |(fset 'a|dapt-reg|
|000003e0| 69 6f 6e 2d 61 63 74 69 | 76 65 2d 70 20 23 5b 6e |ion-acti|ve-p #[n|
|000003f0| 69 6c 20 22 c0 20 ab 83 | c1 20 87 5c 6e 87 22 20 |il ". ..|. .\n." |
|00000400| 5b 61 64 61 70 74 2d 78 | 65 6d 61 63 73 70 20 6d |[adapt-x|emacsp m|
|00000410| 61 72 6b 20 6d 61 72 6b | 2d 61 63 74 69 76 65 5d |ark mark|-active]|
|00000420| 20 31 20 22 5c 0a 52 65 | 74 75 72 6e 73 20 74 2c | 1 "\.Re|turns t,|
|00000430| 20 69 66 20 61 20 72 65 | 67 69 6f 6e 20 69 73 20 | if a re|gion is |
|00000440| 61 63 74 69 76 65 2e 22 | 5d 29 0a 28 62 79 74 65 |active."|]).(byte|
|00000450| 2d 63 6f 64 65 20 22 c0 | 20 ab d4 c1 c2 21 88 c1 |-code ".| ....!..|
|00000460| c3 21 88 0c ab 84 c5 c6 | 21 88 c7 c8 21 88 c9 ca |.!......|!...!...|
|00000470| 4d 88 cb cc 21 ac 83 cd | 16 0c ce cc cf d0 23 88 |M...!...|......#.|
|00000480| 0e 0c ac 85 cc d1 4b 4d | 88 d1 d2 4d 88 d3 d4 4d |......KM|...M...M|
|00000490| 88 d5 d6 4d 88 d7 d8 4d | 88 d9 da 4d 88 db dc 21 |...M...M|...M...!|
|000004a0| ac 84 dc dd 4d 88 db de | 21 ac 84 de df 4d 88 e0 |....M...|!....M..|
|000004b0| e1 21 87 22 20 5b 61 64 | 61 70 74 2d 65 6d 61 63 |.!." [ad|apt-emac|
|000004c0| 73 31 39 70 20 6c 6f 61 | 64 2d 6c 69 62 72 61 72 |s19p loa|d-librar|
|000004d0| 79 20 22 6c 75 63 69 64 | 22 20 22 6c 6d 65 6e 75 |y "lucid|" "lmenu|
|000004e0| 22 20 77 69 6e 64 6f 77 | 2d 73 79 73 74 65 6d 20 |" window|-system |
|000004f0| 72 65 71 75 69 72 65 20 | 66 6f 6e 74 2d 6c 6f 63 |require |font-loc|
|00000500| 6b 20 6d 61 6b 65 2d 66 | 61 63 65 20 66 6f 6e 74 |k make-f|ace font|
|00000510| 2d 6c 6f 63 6b 2d 63 6f | 6d 6d 65 6e 74 2d 66 61 |-lock-co|mment-fa|
|00000520| 63 65 20 72 65 61 64 2d | 6e 75 6d 62 65 72 20 23 |ce read-|number #|
|00000530| 5b 28 70 72 6f 6d 70 74 | 20 26 6f 70 74 69 6f 6e |[(prompt| &option|
|00000540| 61 6c 20 69 6e 74 65 67 | 65 72 73 2d 6f 6e 6c 79 |al integ|ers-only|
|00000550| 29 20 22 c0 c1 1a 1b 0c | ab 9d 0b ab b7 c5 0e 06 |) ".....|........|
|00000560| 21 89 1e 07 c8 98 3f ad | 84 c9 0e 07 21 89 12 a8 |!.....?.|....!...|
|00000570| ab 82 c1 13 29 aa 63 0b | ab 9a c5 0e 06 21 89 1e |....).c.|.....!..|
|00000580| 07 c8 98 3f ad 84 c9 0e | 07 21 89 12 a7 ab 82 c1 |...?....|.!......|
|00000590| 13 29 aa 63 5c 6e 2a 87 | 22 20 5b 74 20 6e 69 6c |.).c\n*.|" [t nil|
|000005a0| 20 6e 75 6d 62 65 72 20 | 65 72 72 6f 72 20 69 6e | number |error in|
|000005b0| 74 65 67 65 72 73 2d 6f | 6e 6c 79 20 72 65 61 64 |tegers-o|nly read|
|000005c0| 2d 73 74 72 69 6e 67 20 | 70 72 6f 6d 70 74 20 69 |-string |prompt i|
|000005d0| 6e 70 75 74 2d 73 74 72 | 69 6e 67 20 22 22 20 72 |nput-str|ing "" r|
|000005e0| 65 61 64 5d 20 33 20 22 | 52 65 61 64 73 20 61 20 |ead] 3 "|Reads a |
|000005f0| 6e 75 6d 62 65 72 20 66 | 72 6f 6d 20 74 68 65 20 |number f|rom the |
|00000600| 6d 69 6e 69 62 75 66 66 | 65 72 2e 22 20 6e 69 6c |minibuff|er." nil|
|00000610| 5d 20 62 6f 75 6e 64 70 | 20 6f 72 69 67 69 6e 61 |] boundp| origina|
|00000620| 6c 2d 72 65 61 64 2d 73 | 74 72 69 6e 67 2d 66 75 |l-read-s|tring-fu|
|00000630| 6e 63 74 69 6f 6e 20 6e | 69 6c 20 70 75 74 20 76 |nction n|il put v|
|00000640| 61 72 69 61 62 6c 65 2d | 64 6f 63 75 6d 65 6e 74 |ariable-|document|
|00000650| 61 74 69 6f 6e 20 22 50 | 6f 69 6e 74 73 20 74 6f |ation "P|oints to|
|00000660| 20 74 68 65 20 6f 72 69 | 67 69 6e 61 6c 20 45 6d | the ori|ginal Em|
|00000670| 61 63 73 20 31 39 20 66 | 75 6e 63 74 69 6f 6e 20 |acs 19 f|unction |
|00000680| 72 65 61 64 2d 73 74 72 | 69 6e 67 2e 22 20 72 65 |read-str|ing." re|
|00000690| 61 64 2d 73 74 72 69 6e | 67 20 23 5b 28 70 72 6f |ad-strin|g #[(pro|
|000006a0| 6d 70 74 20 26 6f 70 74 | 69 6f 6e 61 6c 20 69 6e |mpt &opt|ional in|
|000006b0| 69 74 69 61 6c 2d 63 6f | 6e 74 65 6e 74 73 20 68 |itial-co|ntents h|
|000006c0| 69 73 74 6f 72 79 29 20 | 22 c0 09 5c 6e c3 89 0c |istory) |"..\n...|
|000006d0| 25 87 22 20 5b 72 65 61 | 64 2d 66 72 6f 6d 2d 6d |%." [rea|d-from-m|
|000006e0| 69 6e 69 62 75 66 66 65 | 72 20 70 72 6f 6d 70 74 |inibuffe|r prompt|
|000006f0| 20 69 6e 69 74 69 61 6c | 2d 63 6f 6e 74 65 6e 74 | initial|-content|
|00000700| 73 20 6e 69 6c 20 68 69 | 73 74 6f 72 79 5d 20 36 |s nil hi|story] 6|
|00000710| 20 22 52 65 74 75 72 6e | 20 61 20 73 74 72 69 6e | "Return| a strin|
|00000720| 67 20 66 72 6f 6d 20 74 | 68 65 20 6d 69 6e 69 62 |g from t|he minib|
|00000730| 75 66 66 65 72 2c 20 70 | 72 6f 6d 70 74 69 6e 67 |uffer, p|rompting|
|00000740| 20 77 69 74 68 20 73 74 | 72 69 6e 67 20 50 52 4f | with st|ring PRO|
|00000750| 4d 50 54 2e 5c 6e 49 66 | 20 6e 6f 6e 2d 6e 69 6c |MPT.\nIf| non-nil|
|00000760| 2c 20 6f 70 74 69 6f 6e | 61 6c 20 73 65 63 6f 6e |, option|al secon|
|00000770| 64 20 61 72 67 20 49 4e | 49 54 49 41 4c 2d 43 4f |d arg IN|ITIAL-CO|
|00000780| 4e 54 45 4e 54 53 20 69 | 73 20 61 20 73 74 72 69 |NTENTS i|s a stri|
|00000790| 6e 67 20 74 6f 20 69 6e | 73 65 72 74 5c 6e 69 6e |ng to in|sert\nin|
|000007a0| 20 74 68 65 20 6d 69 6e | 69 62 75 66 66 65 72 20 | the min|ibuffer |
|000007b0| 62 65 66 6f 72 65 20 72 | 65 61 64 69 6e 67 2e 5c |before r|eading.\|
|000007c0| 6e 54 68 69 72 64 20 61 | 72 67 20 48 49 53 54 4f |nThird a|rg HISTO|
|000007d0| 52 59 2c 20 69 66 20 6e | 6f 6e 2d 6e 69 6c 2c 20 |RY, if n|on-nil, |
|000007e0| 73 70 65 63 69 66 69 65 | 73 20 61 20 68 69 73 74 |specifie|s a hist|
|000007f0| 6f 72 79 20 6c 69 73 74 | 2e 22 5d 20 6d 61 6b 65 |ory list|."] make|
|00000800| 2d 65 78 74 65 6e 74 20 | 23 5b 28 62 65 67 20 65 |-extent |#[(beg e|
|00000810| 6e 64 20 26 6f 70 74 69 | 6f 6e 61 6c 20 62 75 66 |nd &opti|onal buf|
|00000820| 66 65 72 29 20 22 c0 09 | 5c 6e 0b 23 87 22 20 5b |fer) "..|\n.#." [|
|00000830| 6d 61 6b 65 2d 6f 76 65 | 72 6c 61 79 20 62 65 67 |make-ove|rlay beg|
|00000840| 20 65 6e 64 20 62 75 66 | 66 65 72 5d 20 34 5d 20 | end buf|fer] 4] |
|00000850| 73 65 74 2d 65 78 74 65 | 6e 74 2d 70 72 6f 70 65 |set-exte|nt-prope|
|00000860| 72 74 79 20 23 5b 28 65 | 78 74 65 6e 74 20 70 72 |rty #[(e|xtent pr|
|00000870| 6f 70 20 76 61 6c 75 65 | 29 20 22 08 c1 3d ab b4 |op value|) "..=..|
|00000880| 5c 6e ab 97 c3 0c 08 5c | 22 ac 91 c5 c6 0c 21 c7 |\n.....\|".....!.|
|00000890| 0c 21 c8 0c 21 c9 0c 21 | 24 88 aa ae 5c 6e ac ab |.!..!..!|$...\n..|
|000008a0| c3 0c 08 5c 22 ab a5 ca | c6 0c 21 c7 0c 21 c8 0c |...\"...|..!..!..|
|000008b0| 21 c9 0c 21 24 88 aa 94 | c3 0c c1 5c 22 ab 8e cb |!..!$...|...\"...|
|000008c0| c6 0c 21 c7 0c 21 08 5c | 6e c9 0c 21 25 88 cc 0c |..!..!.\|n..!%...|
|000008d0| 08 5c 6e 23 87 22 20 5b | 70 72 6f 70 20 64 75 70 |.\n#." [|prop dup|
|000008e0| 6c 69 63 61 62 6c 65 20 | 76 61 6c 75 65 20 6f 76 |licable |value ov|
|000008f0| 65 72 6c 61 79 2d 67 65 | 74 20 65 78 74 65 6e 74 |erlay-ge|t extent|
|00000900| 20 61 64 64 2d 74 65 78 | 74 2d 70 72 6f 70 65 72 | add-tex|t-proper|
|00000910| 74 69 65 73 20 6f 76 65 | 72 6c 61 79 2d 73 74 61 |ties ove|rlay-sta|
|00000920| 72 74 20 6f 76 65 72 6c | 61 79 2d 65 6e 64 20 6f |rt overl|ay-end o|
|00000930| 76 65 72 6c 61 79 2d 70 | 72 6f 70 65 72 74 69 65 |verlay-p|ropertie|
|00000940| 73 20 6f 76 65 72 6c 61 | 79 2d 62 75 66 66 65 72 |s overla|y-buffer|
|00000950| 20 72 65 6d 6f 76 65 2d | 74 65 78 74 2d 70 72 6f | remove-|text-pro|
|00000960| 70 65 72 74 69 65 73 20 | 70 75 74 2d 74 65 78 74 |perties |put-text|
|00000970| 2d 70 72 6f 70 65 72 74 | 79 20 6f 76 65 72 6c 61 |-propert|y overla|
|00000980| 79 2d 70 75 74 5d 20 37 | 5d 20 73 65 74 2d 65 78 |y-put] 7|] set-ex|
|00000990| 74 65 6e 74 2d 66 61 63 | 65 20 23 5b 28 65 78 74 |tent-fac|e #[(ext|
|000009a0| 65 6e 74 20 66 61 63 65 | 29 20 22 c0 09 c2 5c 6e |ent face|) "...\n|
|000009b0| 23 87 22 20 5b 73 65 74 | 2d 65 78 74 65 6e 74 2d |#." [set|-extent-|
|000009c0| 70 72 6f 70 65 72 74 79 | 20 65 78 74 65 6e 74 20 |property| extent |
|000009d0| 66 61 63 65 5d 20 34 5d | 20 64 65 6c 65 74 65 2d |face] 4]| delete-|
|000009e0| 65 78 74 65 6e 74 20 23 | 5b 28 65 78 74 65 6e 74 |extent #|[(extent|
|000009f0| 29 20 22 c0 09 c2 c3 23 | 88 c4 09 21 87 22 20 5b |) "....#|...!." [|
|00000a00| 73 65 74 2d 65 78 74 65 | 6e 74 2d 70 72 6f 70 65 |set-exte|nt-prope|
|00000a10| 72 74 79 20 65 78 74 65 | 6e 74 20 64 75 70 6c 69 |rty exte|nt dupli|
|00000a20| 63 61 62 6c 65 20 6e 69 | 6c 20 64 65 6c 65 74 65 |cable ni|l delete|
|00000a30| 2d 6f 76 65 72 6c 61 79 | 5d 20 34 5d 20 66 62 6f |-overlay|] 4] fbo|
|00000a40| 75 6e 64 70 20 65 6d 61 | 63 73 2d 70 69 64 20 28 |undp ema|cs-pid (|
|00000a50| 6c 61 6d 62 64 61 20 6e | 69 6c 20 22 52 65 74 75 |lambda n|il "Retu|
|00000a60| 72 6e 20 74 68 65 20 70 | 72 6f 63 65 73 73 20 49 |rn the p|rocess I|
|00000a70| 44 20 6f 66 20 45 6d 61 | 63 73 2c 20 61 73 20 61 |D of Ema|cs, as a|
|00000a80| 6e 20 69 6e 74 65 67 65 | 72 2e 5c 6e 54 68 69 73 |n intege|r.\nThis|
|00000a90| 20 69 73 20 61 20 64 75 | 6d 6d 79 20 66 75 6e 63 | is a du|mmy func|
|00000aa0| 74 69 6f 6e 20 66 6f 72 | 20 6f 6c 64 20 76 65 72 |tion for| old ver|
|00000ab0| 73 69 6f 6e 73 20 6f 66 | 20 74 68 65 20 45 6d 61 |sions of| the Ema|
|00000ac0| 63 73 20 31 39 2e 5c 6e | 59 6f 75 20 73 68 6f 75 |cs 19.\n|You shou|
|00000ad0| 6c 64 20 69 6e 73 74 61 | 6c 6c 20 61 20 6e 65 77 |ld insta|ll a new|
|00000ae0| 20 76 65 72 73 69 6f 6e | 2c 20 77 68 69 63 68 20 | version|, which |
|00000af0| 68 61 73 20 60 65 6d 61 | 63 73 2d 70 69 64 27 20 |has `ema|cs-pid' |
|00000b00| 69 6d 70 6c 65 6d 65 6e | 74 65 64 2e 22 20 30 29 |implemen|ted." 0)|
|00000b10| 20 66 61 63 65 70 20 28 | 6c 61 6d 62 64 61 20 28 | facep (|lambda (|
|00000b20| 6f 62 6a 65 63 74 29 20 | 22 57 68 65 74 68 65 72 |object) |"Whether|
|00000b30| 20 4f 42 4a 45 43 54 20 | 69 73 20 61 20 46 41 43 | OBJECT |is a FAC|
|00000b40| 45 2e 5c 6e 49 74 27 73 | 20 6f 6e 6c 79 20 61 20 |E.\nIt's| only a |
|00000b50| 64 75 6d 6d 79 20 66 75 | 6e 63 74 69 6f 6e 20 69 |dummy fu|nction i|
|00000b60| 6e 20 74 68 65 20 45 6d | 61 63 73 20 31 39 2c 20 |n the Em|acs 19, |
|00000b70| 77 68 69 63 68 20 72 65 | 74 75 72 6e 73 20 61 6c |which re|turns al|
|00000b80| 77 61 79 73 20 6e 69 6c | 2e 22 20 6e 69 6c 29 20 |ways nil|." nil) |
|00000b90| 70 72 6f 76 69 64 65 20 | 61 64 61 70 74 5d 20 34 |provide |adapt] 4|
|00000ba0| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+